home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -in_the_mag- / banging_the_metal / clockpeek / clockpeek.bas < prev    next >
BASIC Source File  |  1999-12-02  |  416b  |  20 lines
  1. Rem HiSoft Power BASIC clock test
  2. Rem Simon N Goodwin December 1999
  3.  
  4. Rem For A500, most A2000 & A1200s
  5. Rem with OKI or MSM 6242 RT clock
  6.  
  7. base&=&hDC0001 ' &hD80001 on A2000A
  8. bus%=32 ' 32 for A1200, 16 if older
  9.  
  10. locate 2,2:print "Tap LMB to quit"
  11. repeat pollster
  12.   for i=0 to 1.5*bus% step bus%/8
  13.   locate 2,66-i
  14.     print 15 and peek(i+base&);
  15.   next i
  16.   if mouse(0) then exit pollster
  17. end repeat pollster
  18. system  
  19.  
  20.